<!--#include file="../Inc/sys.init.asp"-->
<%
on error goto 0

'dim rs, d

'set rs = M("menu")().Top(0).Find("pid=0").Fetch()
'set rs = M("menu")().Top(0).Order("ordid,id").Fetch()

' set d = ab.c.dict()
' d("type") = "ip"
' d("name") = "aggg我ga" '

' If Err.Number=0 And M("ipban")().Find(3).Update(d) Then
	' ab.c.put "操作成功"
' Else
	' ab.c.put "操作失败"
' End If

'AB.Trace App.Helper("tree").get_tree(Rs, "pid", "id", 0, "")


' dim cat, e
' set cat = App.Helper("tree").getTypes("",0,5)
''ab.trace cat

' for each e in cat
	' ab.c.wr cat(e)("tree_spacer") & cat(e)("name") & " " & cat(e)("id")
' next

'ab.trace get_child_data( M("menu"), 37, 0)
'ab.trace get_cate_data( M("menu"), 37)(37)("child")
'ab.trace get_cate_data( M("music_cate"), 0)
'ab.c.wr get_cate_tree( get_cate_data( M("music_cate"), 0) , array(1,3,5))
'ab.c.wr html_select("index",get_index(),null)

' dim list
' set list = m("admin_role").get_list_tree(0,0)
' ab.trace m("menu").get_level(2,list,0)

%>
